Imports GTSSystem.BLL
Partial Class GTSWeb_AddClientBranch
    Inherits System.Web.UI.Page

   

    Protected Sub btnAddClientBranch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddClientBranch.Click
        Dim ClientBranchManager As New ClientBranch
        Try

        
            ClientBranchManager.CreateClientBranchBEI(txtBranchName.Text, txtContactName.Text, _
                                                    txtPhone.Text, txtFax.Text, txtEmail.Text, _
                                                    txtAddress.Text, txtCity.Text, txtState.Text, _
                                                    txtCountry.Text, txtPostalCode.Text).ToString()

            Response.Redirect(Request.Url.ToString, False)
            'ErrMsg.Text = "You have been Add successful" & vbNewLine & "Your membership is valid for next 30 days. "
            'btnAddClientBranch.Visible = False
            clear()
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    'Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
    '    txtBranchName.Text = ""
    '    txtContactName.Text = ""
    '    txtPhone.Text = ""
    '    txtFax.Text = ""
    '    txtEmail.Text = ""
    '    txtAddress.Text = ""
    '    txtCity.Text = ""
    '    txtState.Text = ""
    '    txtCountry.Text = ""
    '    txtPostalCode.Text = ""

    '    btnAddClientBranch.Visible = True

    'End Sub
    Protected Sub clear()
        txtBranchName.Text = ""
        txtContactName.Text = ""
        txtPhone.Text = ""
        txtFax.Text = ""
        txtEmail.Text = ""
        txtAddress.Text = ""
        txtCity.Text = ""
        txtState.Text = ""
        txtCountry.Text = ""
        txtPostalCode.Text = ""
    End Sub

End Class
